home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / Compuserve II / 1750-C64.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.5 KB  |  153 lines
  1. 10 POKE55,.:POKE56,160:CLR:Q$=CHR$(34):M$=CHR$(13):C$=","
  2. 15 PRINT"[147][212]EXT TO SCREEN OR PRINTER (S/P)?"
  3. 20 PRINT"[208]RESS X TO EXIT."
  4. 25 GETA$:IFA$="S"THEND=3:GOTO45
  5. 30 IFA$="P"THEND=4:GOTO45
  6. 35 IFA$="X"THEN72
  7. 40 GOTO25
  8. 45 OPEN1,D,7:CMD1,CHR$(27);"A":IFD=3THENPRINT"[147]"
  9. 50 GOSUB700:PRINT"[147][208]RESS C TO CONTINUE."
  10. 55 PRINT"[208]RESS X TO EXIT."
  11. 60 GETA$:IFA$="C"THENPRINT"[147]":GOTO75
  12. 65 IFA$="X"THEN72
  13. 70 GOTO60
  14. 72 CLOSE15:PRINT"[147][142]":END
  15. 75 PRINT"[197]NTER DISK DRIVE DEVICE NUMBER."
  16. 80 PRINT"(ENTER 0 TO EXIT.)"
  17. 85 PRINT"  8[145]":INPUTD:IFD=.THEN72
  18. 90 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO75
  19. 95 POKE2,36:POKE184,8:POKE185,.:POKE186,D
  20. 100 POKE183,1:POKE187,2:POKE188,.:SYS65472
  21. 105 CLOSE8:IFPEEK(783)AND1THENPRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO75
  22. 110 OPEN15,D,15
  23. 115 PRINT"[147][197]NTER FILENAME."
  24. 120 F$="":INPUTF$:IFF$=""THEN72
  25. 125 OPEN8,D,1,F$:INPUT#15,J$,O$,H$,N$
  26. 130 IFJ$<>"00"THENPRINT"[147]";J$;C$;O$;C$;H$;C$;N$:CLOSE15:CLOSE8:GOTO75
  27. 135 PRINT"[147][215]RITING FILE..."
  28. 140 FORI=1TO240:READY:PRINT#8,CHR$(Y);:NEXT
  29. 145 CLOSE8:CLOSE15:PRINT"...[196]ONE":
  30. 150 PRINT"[208]RESS <[210][197][212][213][210][206]>."
  31. 155 GETA$:IFA$=M$THENPRINT"[147]":GOTO75
  32. 160 GOTO155
  33. 200 DATA167,2,120,32,83,228,169,185
  34. 210 DATA141,20,3,169,2,141,21,3,88
  35. 220 DATA76,131,164,166,203,202,202
  36. 230 DATA202,240,12,202,240,12,202
  37. 240 DATA240,12,202,240,12,76,49,234
  38. 250 DATA162,6,44,162,0,44,162,2,44
  39. 260 DATA162,4,160,0,173,141,2,74
  40. 270 DATA176,10,74,144,3,136,208,5
  41. 280 DATA74,144,2,136,232,165,43,141
  42. 290 DATA2,223,141,4,223,165,44,141
  43. 300 DATA3,223,141,5,223,56,169,0
  44. 310 DATA76,52,3,139,227,167,2,124
  45. 320 DATA165,26,167,228,167,134,174
  46. 330 DATA136,1,136,176,76,72,178,0
  47. 340 DATA49,234,102,254,71,254,74
  48. 350 DATA243,145,242,14,242,80,242
  49. 360 DATA51,243,87,241,202,241,237
  50. 370 DATA246,62,241,47,243,102,254
  51. 380 DATA165,244,237,245,229,43,141
  52. 390 DATA7,223,169,208,229,44,141
  53. 400 DATA8,223,169,0,141,9,223,141
  54. 410 DATA10,223,142,6,223,152,208,3,169
  55. 420 DATA145,44,169,144,198,1,141,1,223
  56. 430 DATA169,45,141,2,223,141,4,223
  57. 440 DATA169,0,141,3,223,141,5,223
  58. 450 DATA141,8,223,169,2,141,7,223
  59. 460 DATA152,208,3,169,145,44,169
  60. 470 DATA144,141,1,223,230,1,152,208
  61. 480 DATA17,169,49,141,20,3,169,234
  62. 490 DATA141,21,3,32,99,166,88,76
  63. 500 DATA131,164,76,49,234,0
  64. 600 IFD=4THENRETURN
  65. 605 PRINT"             [208]RESS <[210][197][212][213][210][206]>[146]";
  66. 610 GETA$:IFA$=M$THENPRINT"[147]":RETURN
  67. 615 GOTO610
  68. 700 PRINT"   [212]HIS PROGRAM WILL LET YOU USE A 1750"
  69. 705 PRINT"[210][197][213] ([210]AM [197]XPANSION [213]NIT) WITH A"
  70. 710 PRINT"[195]OMMODORE-64.  [212]HE 1750 WAS DESIGNED"
  71. 720 PRINT"FOR USE WITH A [195]-128, WHOSE POWER"
  72. 730 PRINT"SUPPLY CAN SUPPLY THE EXTRA LOAD ON THE"
  73. 740 PRINT"+5 [214][196][195] LINE.  [193] [195]-64 POWER SUPPLY"
  74. 745 PRINT"(EITHER THE ORIGINAL ";Q$;"BRICK";Q$;", OR ANY OF"
  75. 750 PRINT"THE 1.8 [193] REPLACEMENT SUPPLIES) ISN'T"
  76. 755 PRINT"HEFTY ENOUGH FOR A 1750.  [217]OU SHOULD"
  77. 760 PRINT"TRY TO FIND A HEAVY-DUTY SUPPLY; A 4.3"
  78. 765 PRINT"[193] [195]-128 SUPPLY SHOULD BE FINE, BUT THE"
  79. 770 PRINT"COMPUTER CONNECTOR MUST BE REPLACED."
  80. 775 PRINT:PRINT"    [212]HE 1750 IS ADDRESSED AT [201]/[207] 2, SO"
  81. 780 PRINT"IT MAY BE USED WITH A [211]WIFT[204]INK"
  82. 785 PRINT"CARTRIDGE (WHICH USES [201]/[207] 1) CONNECTED."
  83. 790 PRINT"[212]HE 1750 GIVES YOU 512[160][203]BYTES OF [210][193][205],"
  84. 795 PRINT"WHICH MAY BE USED FOR STORAGE.  [212]HE [210][193][205]"
  85. 800 PRINT"MAY NOT BE ACCESSED DIRECTLY, BUT A"
  86. 805 PRINT"COMMAND MAY BE SENT TO THE [210][197][213] TO DO"
  87. 810 PRINT"ONE OF FOUR THINGS.  [217]OU MAY [211][212][193][211][200],"
  88. 815 PRINT"[198][197][212][195][200], [211][215][193][208], OR [214][197][210][201][198][217]; THE FIRST THREE"
  89. 820 PRINT"OPERATIONS ARE SUPPORTED BY THE [194][193][211][201][195]
  90. 825 [141]600
  91. 830 [153]"7.0 USED BY THE LEN-128.  (null)(null)ATN(null)LEFT$ TRANSFERS"
  92. 835 [153]"A BLOCK OF DATA FROM THE COMPUTER TO"
  93. 840 [153]"THE (null)VAL(null); ASCVAL(null)LENLEFT$ TRANSFERS A BLOCK OF"
  94. 845 [153]"DATA FROM THE (null)VAL(null) TO THE COMPUTER; (null)(null)ATN(null)"
  95. 850 [153]"INTERCHANGES BLOCKS OF DATA BETWEEN THE"
  96. 855 [153]"COMPUTER AND THE (null)VAL(null); (null)VAL(null)RIGHT$ASC(null) CHECKS A"
  97. 860 [153]"BLOCK OF DATA IN COMPUTER MEMORY"
  98. 865 [153]"AGAINST A BLOCK IN (null)VAL(null) MEMORY.  ATN BLOCK"
  99. 870 [153]"MAY CONTAIN FROM 1 TO 65536 BYTES, AND"
  100. 875 [153]"MAY BE LOCATED ANYWHERE IN (null)VAL(null)/COMPUTER"
  101. 880 [153]"MEMORY.  RIGHT$T TAKES ONE CLOCK CYCLE TO"
  102. 885 [153]"TRANSFER A BYTE IN EITHER DIRECTION OR"
  103. 890 [153]"TO (null)VAL(null)RIGHT$ASC(null) A PAIR OF BYTES, AND TWO"
  104. 895 [153]"CLOCK CYCLES TO (null)(null)ATN(null) A PAIR OF BYTES."
  105. 900 [153]"(null)O A 64 (null)BYTE BLOCK OF DATA MAY BE"
  106. 905 [153]"EITHER ASCVAL(null)LENLEFT$VALSTR$ OR (null)(null)ATN(null)LEFT$VALSTR$ IN LESS THAN"
  107. 910 [153]"70 MILLISECONDS.  (null)HE (null)VAL(null) MEMORY IS"
  108. 915 [153]"VOLATILE; WHEN THE COMPUTER IS TURNED"
  109. 920 [153]"OFF, MEMORY CONTENTS ARE LOST."
  110. 925 [153]:[153]"    (null)HERE ARE SEVERAL WAYS IN WHICH A"
  111. 930 [153]"1750 MAY BE USED; THIS PROGRAM IS FOR"
  112. 935 [153]"ONE OF THEM.  (null)OU MAY (null)(null)ATN(null)LEFT$ UP TO EIGHT"
  113. 940 [141]600
  114. 945 [153]"PEEKATN(null)RIGHT$LEN PROGRAMS IN THE 1750, FOR LATER"
  115. 950 [153]"RETRIEVAL.  (null)HE PROGRAMS MUST BE ABLE"
  116. 955 [153]"TO BE LOADED ";Q$;"FILENAME";Q$;",N (WHERE ";Q$;"N";Q$;" IS"
  117. 960 [153]"THE DEVICE NUMBER), AND MAY BE ANY"
  118. 965 [153]"SIZE.  ATNFTER YOU READ THIS TEXT, YOU"
  119. 970 [153]"WILL GET A CHANCE TO CREATE A ONE-BLOCK"
  120. 975 [153]"DISK FILE ON ONE OR MORE DISKS.  CHR$IVE"
  121. 980 [153]"EACH FILE A SHORT NAME, AND TRY TO PUT"
  122. 985 [153]"IT NEAR THE BEGINNING OF THE DISK"
  123. 990 [153]"DIRECTORY."
  124. 995 [153]:[153]"    (null)ET'S ASSUME THAT THE FILENAME OF"
  125. 1000 [153]"THE ONE-BLOCKER IS ";Q$;"REU";Q$;".  (null)O (null)(null)ATN(null)LEFT$ A"
  126. 1005 [153]"PROGRAM, LOAD";Q$;"REU";Q$;",8,1.  (null)HEN LOAD YOUR"
  127. 1010 [153]"PROGRAM; DO (null)(null)(null) PRESS (null)(null)(null)(null)/(null)VAL(null)(null)(null)(null)VAL"
  128. 1015 [153]"DURING THE PROCESS.  (null)EXT, PRESS ONE OF"
  129. 1020 [153]"THE KEYS IN THE TABLE AT THE END OF"
  130. 1025 [153]"THIS TEXT, TO (null)(null)ATN(null)LEFT$ THE PROGRAM.  MID$OT"
  131. 1030 [153]"DOWN THE FILENAME ALONG WITH THE"
  132. 1035 [153]"PROGRAM NUMBER.  (null)OU MAY LOAD AND (null)(null)ATN(null)LEFT$"
  133. 1040 [153]"SEVERAL PROGRAMS, WITHOUT HAVING TO"
  134. 1045 [153]"RELOAD ";Q$;"REU";Q$;".  PEEKE SURE TO USE A"
  135. 1050 [153]"DIFFERENT NUMBER FOR EACH PROGRAM."
  136. 1055 [141]600
  137. 1060 [153]"(null)O ASCVAL(null)LENLEFT$ A PROGRAM, LOAD";Q$;"REU";Q$;",8,1."
  138. 1065 [153]"(null)HEN PRESS THE CORRESPONDING KEY FROM"
  139. 1070 [153]"THE TABLE.  VALACH ASCVAL(null)LENLEFT$ MUST BE PRECEDED"
  140. 1075 [153]"BY LOAD";Q$;"REU";Q$;",8,1."
  141. 1080 [153]:[153]:[153]"(null)(null)(null)CHR$(null)ATN(null) (null)(null)(null)PEEKVAL(null)   (null)(null)ATN(null)LEFT$        ASCVAL(null)LENLEFT$"
  142. 1085 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  143. 1090 [153]"       1         LEN= ASC1        ASC1"
  144. 1095 [153]"       2         LEN(null)(null)(null)(null)(null)(null) ASC1   (null)LEFT$RIGHT$ASC(null) ASC1"
  145. 1100 [153]"       3         LEN= ASC3        ASC3"
  146. 1105 [153]"       4         LEN(null)(null)(null)(null)(null)(null) ASC3   (null)LEFT$RIGHT$ASC(null) ASC3"
  147. 1110 [153]"       5         LEN= ASC5        ASC5"
  148. 1115 [153]"       6         LEN(null)(null)(null)(null)(null)(null) ASC5   (null)LEFT$RIGHT$ASC(null) ASC5"
  149. 1120 [153]"       7         LEN= ASC7        ASC7"
  150. 1125 [153]"       8         LEN(null)(null)(null)(null)(null)(null) ASC7   (null)LEFT$RIGHT$ASC(null) ASC7"
  151. 1130 [152]1:[160]1:[139]D[178]3[167][153]""
  152. 1135 [137]600
  153.